.net (Turkey) 1998 March/.net Internet Dergisi - CD 5.iso/pc/CON_BM/00285_Script_285

Text File | 1997-11-07 | 5KB | 142 lines

--movie resizing

on ResizeMovie
  global gCurrentMoviePlaying, gCurrentMovieOrigWidth, gCurrentMovieOrigHeight,  gCurrentMovieOrigPosX, gCurrentMovieOrigPosY, gOrigMovieSpeed
  repeat with i = 1 to 6
    puppetsprite (39 +i), true
    set the visible of sprite (39 +i) to false
    updatestage
  end repeat


  puppetsprite 30, true
  puppetsprite 31, true
  puppetsprite 32, true
  puppetsprite 48, true

  set the visible of sprite 30 to false
  set the visible of sprite 31 to false
  set the visible of sprite 32 to false
  set the visible of sprite 48 to false

  if gCurrentMovieOrigWidth = 160 then
    if the width of sprite  48 = 160 then
      set the height of sprite 48 to 240
      set the width of sprite 48 to 320
      put gCurrentMovieOrigHeight into Z
      set the loch of sprite 48 to (gCurrentMovieOrigPosX - ((320 - gCurrentMovieOrigWidth)/2))
      set the locv of sprite 48 to (gCurrentMovieOrigPosY + ((240 - gCurrentMovieOrigHeight)/2))
      updatestage
      set the visible of sprite 48 to true
      exit
    end if



    if the width of sprite  48 = 320 then
      --      hello
      set the height of sprite 48 to 300
      set the width of sprite 48 to 400
      set the loch of sprite 48 to (gCurrentMovieOrigPosX - ((400 - gCurrentMovieOrigWidth)/2))
      set the locv of sprite 48 to (gCurrentMovieOrigPosY + ((300 - gCurrentMovieOrigHeight)/2))
      updatestage
      set the visible of sprite 48 to true
      exit
    end if
    if the width of sprite  48 = 400 then
      set the height of sprite 48 to 120
      set the width of sprite 48 to 160
      set the loch of sprite 48 to gCurrentMovieOrigPosX
      set the locv of sprite 48 to gCurrentMovieOrigPosY
      updatestage
      set the visible of sprite 48 to true
      exit
    end if
  end if

  if gCurrentMovieOrigWidth = 320 then
    if the width of sprite  48 = 320 then

      set the locH of sprite 30 to 153
      set the locV of sprite 30 to 0
      set the membernum of sprite 30 to the number of member "bigmovie" of castLib "shared"

      repeat with i = 1 to 6
        puppetsprite (39 + i), true
        set origloch = the loch of sprite (39 + i)
        set origlocv = the locv of sprite (39 + i)
        set the loch of sprite (39 + i) = (origloch - 1)
        set the locv of sprite (39 + i) = (origlocv + 67)
        updatestage
      end repeat
      --      move volume bar + knob
      set origloch = the loch of sprite 31
      set origlocv = the locv of sprite 31
      set the loch of sprite 31 = (origloch - 82)
      set the locv of sprite 31 = (origlocv + 60)
      set origloch = the loch of sprite 32
      set origlocv = the locv of sprite 32
      set the loch of sprite 32 = (origloch - 82)
      set the locv of sprite 32 = (origlocv + 60)




      set the height of sprite 48 to 300
      set the width of sprite 48 to 400
      set the loch of sprite 48 to (gCurrentMovieOrigPosX - ((400 - gCurrentMovieOrigWidth)/2))
      set the locv of sprite 48 to (gCurrentMovieOrigPosY + ((300 - gCurrentMovieOrigHeight)/2))
      updatestage
      set the visible of sprite 30 to true
      set the visible of sprite 48 to true
      repeat with i = 1 to 6
        set the visible of sprite (39 +i) to true
      end repeat
      set the visible of sprite 31 to true
      set the visible of sprite 32 to true
      exit
    end if

    if the width of sprite  48 = 400 then
      set the locH of sprite 30 to 236
      set the locV of sprite 30 to -2
      set the membernum of sprite 30 to the number of member "smallmovie" of castLib "shared"
      repeat with i = 1 to 6

        set origloch = the loch of sprite (39 + i)
        set origlocv = the locv of sprite (39 + i)
        set the loch of sprite (39 + i) = (origloch + 1)
        set the locv of sprite (39 + i) = (origlocv - 67)
        updatestage
      end repeat
      --      move volume bar + knob back
      set origloch = the loch of sprite 31
      set origlocv = the locv of sprite 31
      set the loch of sprite 31 = (origloch + 82)
      set the locv of sprite 31 = (origlocv - 60)
      set origloch = the loch of sprite 32
      set origlocv = the locv of sprite 32
      set the loch of sprite 32 = (origloch + 82)
      set the locv of sprite 32 = (origlocv - 60)


      set the height of sprite 48 to 240
      set the width of sprite 48 to 320
      set the loch of sprite 48 to gCurrentMovieOrigPosX
      set the locv of sprite 48 to gCurrentMovieOrigPosY
      updatestage
      set the visible of sprite 30 to true
      set the visible of sprite 48 to true
      repeat with i = 1 to 6
        set the visible of sprite (39 +i) to true
      end repeat
      set the visible of sprite 31 to true
      set the visible of sprite 32 to true
      exit
    end if
  end if



end ResizeMovie